home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / TECHNICA / AUTOCAD / H107.ZIP / APR91.ZIP / TIP647.LSP < prev    next >
Text File  |  1991-04-11  |  389b  |  17 lines
  1. ;TIP647.LSP   Better Rotate   (c)1991, Trevar Chapmon
  2.  
  3. (defun C:ROT ()
  4. (setq SLCT (ssget))
  5. (setq PTR (getpoint
  6.   "\nRotation base point "))
  7. (setq PT1 (getpoint
  8.   "\nPoint to rotate to "))
  9. (setq PT2 (getpoint
  10.   "\nPoint to rotate from "))
  11. (setq ANGR (- (angle PT1 PTR)
  12.   (angle PT2 PTR)))
  13. (setq ANG (/ (* ANGR 180) pi))
  14. (command "ROTATE" SLCT "" PTR ANG)
  15. (setq SLCT nil)
  16. )
  17.